home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO070.dsk / DOGPAW.MENU.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  40 lines

  1. 10  REM  <CTRL-J><CTRL-M> DOGPAW.MENU<CTRL-J>
  2. 20  REM  Case Convert if II+
  3. 30  IF  PEEK(64435) < >6  THEN V$ = "00165103133074165104133075160004177074240015201127176008201097144004041223145074200208237160000177074170200177074134074133075177074208219096": FOR A = 768 TO 813:V =  VAL( MID$ (V$,3 *(A -767),3)): POKE A,V: NEXT : CALL 768:PL = 1
  4. 40  REM  <CTRL-J> Title box
  5. 50  IF PL  THEN  PRINT  CHR$(12)"Switch to 40 column" CHR$(26)"1"
  6. 60  PRINT  CHR$(21): TEXT : HOME :D$ =  CHR$(4)
  7. 70  INVERSE : PRINT "\" SPC( 38)"/";
  8. 80  PRINT " ";: NORMAL : PRINT ":" SPC( 36)":";: INVERSE : PRINT " ";
  9. 90  PRINT " ";: NORMAL : PRINT "                DOGPAW                ";: INVERSE : PRINT " ";
  10. 100  PRINT " ";: NORMAL : PRINT  SPC( 38);: INVERSE : PRINT " ";
  11. 110  PRINT " ";: NORMAL : PRINT "            By Karl Bunker            ";: INVERSE : PRINT " ";
  12. 120  PRINT " ";: NORMAL : PRINT ":" SPC( 36)":";: INVERSE : PRINT " ";
  13. 130  PRINT "/" SPC( 38)"\";: NORMAL 
  14. 140  VTAB 10: PRINT " About Dogpaw . . ."
  15. 150  VTAB 12: HTAB 7: PRINT "<1>-Text to 80 column screen"
  16. 160  VTAB 14: HTAB 7: PRINT "<2>-Text to 40 column screen"
  17. 170  VTAB 16: HTAB 7: PRINT "<3>-Text to printer"
  18. 180  VTAB 18: HTAB 4: PRINT "<4>-Install Dogpaw"
  19. 190  VTAB 20: HTAB 4: PRINT "<esc>-Quit to BASIC"
  20. 200  VTAB 23: HTAB 4: PRINT "< >-?";
  21. 210  IF DP  THEN  VTAB 18: HTAB 4: PRINT "- Dogpaw is installed -"
  22. 220  VTAB 23: HTAB 5: GET G$: IF G$ >"0"  THEN  PRINT G$;
  23. 230  IF  ASC(G$) = 27  THEN  END 
  24. 240  IF G$ <"1"  OR G$ >"4" GOTO 200
  25. 250  IF   NOT DP  THEN  PRINT D$"-DOGPAW":DP = 1
  26. 260  IF G$ = "4" GOTO 200
  27. 270  IF G$ = "1"  THEN  PRINT D$"PR#3": HOME : PRINT : PRINT "One moment . . ."
  28. 280 DC$ = "DOGPAW.DOCS.C": IF G$ = "2"  THEN DC$ = DC$ +"+"
  29. 290  IF G$ = "3"  THEN  GOSUB 330
  30. 300  REM  <CTRL-J> Call Dogpaw
  31. 310  PRINT D$"DOGPAW "DC$"\\Dogpaw instructions, page #"
  32. 320  GOTO 40
  33. 330  REM  <CTRL-J> Get printer slot #
  34. 340  VTAB 23: HTAB 4: CALL  -958: PRINT "Printer Slot number? 1"
  35. 350  VTAB 23: HTAB 25: GET PS$: IF PS$ >"1"  THEN  PRINT PS$
  36. 360  IF PS$ =  CHR$(27) GOTO 40
  37. 370  IF PS$ =  CHR$(13)  THEN PS$ = "1"
  38. 380  IF PS$ <"1"  OR PS$ >"7" GOTO 330
  39. 390 PS =  VAL(PS$): PRINT D$"PR#"PS
  40. 400  RETURN